COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002			PROM PROG
C00003 00003	 OCT DDT
C00004 00004	  FALL THRU TO EXAM REGS
C00005 00005	  DEPOSIT ∧ DEP REGS ∧ (DEP THEN EXAM NEXT)
C00006 00006	 SET BREAK
C00014 ENDMK
C⊗;
;		PROM PROG
; ROM INTER VECTS
LOC 177774
	NMIVL:	NMIAL		;			1
	NMIVH:	NMIAH		;			1
	RSTVL:	RSTAL		;			1
	RSTVH:	RSTAH		;			1
	IRQVL:	IRQAL		;			1
	IRQVH:	IRQAH		;		       _1_
							6
; ROM RESTET
LOC 177400
		BRK		;			1

	RRST:	
		LDXIM	377	;FIX SP ??		2
		TXS		;			1

		LDAIM	IRAL	;FIX IRQV		2
		STAAB	IRQVL	;			3
		LDAIM	IRAH	;			2
		STAAB	IRQVH	;			3

		LDAIM	NMIAL	;FIX NMI		2
		STAAB	NMIVL	;			3
		LDAIM	NMIAH	;			2
		STAAB	NMIVH	;		      __3_
				;		      _25_
				;		       31
;  RESET I/O

; OCT DDT
;					P
;					PCL
;					PCH
;	SAVSP ← SP

	BRKIN:	PHA		;SAV REGS		1
		TXA		;			1
		PHA		;			1
		TYA		;			1
		PHA		;		       _1_
							5

	ODT:	JSR	INCKBW	;GET C.K.B. COMMAND	3
				;FIND WHAT TO DO

;  FALL THRU TO EXAM REGS
;		JSR	INCKBW	GET KB CHR		3
;				GET REG NUM

;		STA	SPADL	3	SAV IT
;		TSX		1	GET SP

;	??	LDA @(X)SPADHL: 3	GET VAL

;		JSR	DLDPY	3	DISPLAY IT

;	??	JMP	ODT	3	DONE

;  EXAM
;	EXAM:	JSR	INCKBW	3	GET FIRST CHR
;		ASL		1	SHIFT IT
;		ASL		1
;		ASL		1
;		ASL		1
;		STA	XADL	3
;		JSR	INCKBW	3	GET SECOND CHR
;		ORA	XADH	3	OR N STORE
;		STA	XADH	3
;		JSR	INCKBW	3	GET THIRD CHR
;		ASL		1	SHIFT IT
;		ASL		1
;		ASL		1
;		ASL		1
;		STA	XADL	3
;		JSR	INCKBW	3	GET FORTH CHR
;		ORA	XADL	3	OR N STORE IN X
;		TAX		1
;	??	LDA (X)	XADH	3

;		JSR	DLDPY	3	DISPLAY IT
;		RTS		1
;  DEPOSIT ∧ DEP REGS ∧ (DEP THEN EXAM NEXT)

; START

	START:	
		
		LDA	STPS	2∨3	PUSH PSW
		PHA		1
		LDA	STADL	2∨3	PUSH START ADDR
		PHA		1
		LDA	STADH	2∨3
		PHA		1
		RTI		1	START

; CONTINUE
	CONT:	
		PLA		;GET REGS		1
		TAY		;			1
		PLA		;			1
		TAX		;			1
		PHA		;			1
		RTI		;CONTINUE		1
						       ___
							6
; SET BREAK
;	STBRK:	LDX	NBRK	3
	
;		LDA	SVADL	3
;		STA (X)	BRKTBL	3
;		INX		1
;		LDA	SVADH	3
;		STA (X)	BRKTBL	3
;		INX		1
		LDA  @	SVADR	3
		STA (X)	BRKTBL	3
		INX		1
		LDA	BREAK	2
		STA  @	SVADR	3
	
α RESET BREAK
	RSBRK:	LDX	NBRK	3
		LDA	SVADL	3
		CMP (X)	BRKTBL	3
		BEQ	CKHI
		INX		1
	
α NMSK INT
α  ODT ∨ USER INT ?

α INTRQ
	INTR:	PHA		1	SAVE REG

		LDA	TYOSR
		EOR	TYOMSK
		BNE	OTY

		LDA	TYISR
		EOR	TYIMSK
		BEQ	RETA
		TXA
		PHA
α INCKBW
α DLDPY
α ALDPY

α LOADER
α DUMPER